home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / routines / CHECK < prev    next >
Text File  |  1997-04-05  |  321b  |  8 lines
  1. CHECK:;if ARG() & ARG(1)~="###PANIC" then return ARG(1)
  2.     getcarrier;if result="TRUE" then if ARG() then return ARG(1);else return
  3.  
  4.     /* You may wish to call SAVE DATA routines here, reenable MORE 
  5.        prompts, unmuffle or unhide the port, etc.                   */
  6.  
  7.     logentry "Lost Carrier!!";bufferflush;exit
  8.